package Test::YAVMM::Console::VNC;
use warnings;
use strict;

use Test::Most;
use base qw( Test::YAVMM::Console Test::YAVMM::Object );

sub constructor : Tests(3) {
    my $test  = shift;
    my $class = $test->class;

    can_ok $class, 'new';
    ok my $obj = $class->new,
	'... and the constructor should succeed';
    isa_ok $obj, $class,
	'... and the object it returns matches';
}

1;
